home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / dev / c / vbcc.lha / vbcc / machines / amiga68k / libsrc / AmigaLib / FastRand.c < prev    next >
Encoding:
C/C++ Source or Header  |  1997-12-30  |  125 b   |  10 lines
  1. #include <exec/types.h>
  2.  
  3. ULONG FastRand(ULONG seed)
  4. { ULONG a=seed<<1;
  5.   if((LONG)seed<=0)
  6.     a^=0x1d872b41;
  7.   return a;
  8. }
  9.  
  10.